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T7A21 --- FRU ISOLATION MAP P/N=8327656 EC=375222 PAGE 01 I7A21 --- FRU ISOLATION MAP P/N=8327656 EC=375222 PAGE O1A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3 COPY LOG7A21 ** MAP EC HISTORY ** 002500 33D8 198 DC A (ENTPT) POINT TO MAP ENTRY POINT TABLE 
TTS TLL SS LEP SS SSSCSSCSSSS SCL SSS SSCSSCSSSC£SSSC CCST SCS ECSSCCSCSCoSCLS CS CCCCSC. SS SS 2 2's 2 199 oR OR ok kk Kk ko oo ao i kK ak kok ok ak kf ak leak ak fake ke akc ke fof ae ok ocak ak ake ak 
5 x * 200 2 KK IK RR IO gk kg aga ak kak ck fake ak ake fe a ck fe ake i ake afc afc af abe of ae akc akc akc ic akc ak 
— 6 * eK PREREQUISITES 78 KK * 201 ** oe 4 
7% 5 202 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR Seo eae) a 
8 * NONE * 203 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER * 
9 x * 204 ** PARAMETERS TO PASS TO THE TU'S AND TO PASS TO THE OPERATOR eK 
OE TITS ST SS SSS OS SCLC SL STS SESS CSL SLCSSCSCSLSCCSC SSCS SSCS CL SP ee TS Se Se se ee Te eT es 205 ** THE INDICATED MESSAGE(S). THERE ARE FOUR TABLES USED FOR THIS ¥ 2K 
11 * * 206 ** PURPOSE THFY ARE: eK 
12 * aK 2 MODIFICATIONS Xe 2k ofc * 207 ** x 
13 * * 208 ** STEP AND RULE ADDRESS TABLE * 
14 x CHANGES MADE TO CORRECT ERROPS FOUND WHILE IN TEST * 209 *x THIS TABLE GIVES THE ADDPESS OF THE RULE TO INVOKE AND * 
15 * * 210 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. ek 
StL SLCSSS SSCS SSS SSS OSCSCOSCSCSSSSSC SSS SSC CLCSCSCSCSCLSCSCCCCCCe EC CESS ete Se SS ee eT ee eo 211 *«* ENTRIES ARE AS FOLLOWES eK 
17 * * 212 ** A AN ADDRESS OF THE RULE DC START AREA le 
18 * a REA'*S INCORPORATED tek * 213 ** B THE STEP NUMBER IN DECIMAL * 
19 x * 214 ** C AN EQUATE FOR THE STEP NUMBER * % 
20 * NONE * 215 ** a a 
21 * * 216 ** RULE INFORMATION TARLE * 
22 KK KOK OK IO IO I IO IO IR IO OK I OK IK OK a kok fo kak doe ako ok ok ak ak ak ake 2k 217 ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE % ok 
23 * * 218 ** THE APPROPRIATE RULE UNDER MDI. EACH RULE HAS ITS OWN  & 
24 * 3k 2K 3K SPECIAL INSTRUCTIONS eK * 219 ** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS * 
25 * * 220 ** INDICATED WITH A X'OOO0O! FOR THE RULE EQUATE. *% 
26 * NONE * 221 ** * 
27 * * 222 ** SQUES * 
\ 28 KKK Kk OK i i Io ko kk kk tok kak a ag kak ak ac ake ak ak ak akc 223 ** A) RULE EQUATE X*01008 * 
; 29 * * 224 ** B) ADDRESS OF THE YES LEG RULE ** 
30 * KK E. C. HISTORY KKK * 225 ** OK 
31 * * 226 ** SFIXT OK 
32 * DATE 17AUG78 DATE O020CT78 DATE 10JAN79. DATE * 227 ** 5} RULE EQUATE X'0101'! ok 
of vf Ee-C. 755391 E.-C. 375102 BeCs 315222 Bay * one sb B) ADDRESS OF MESSAGE TO PRINT - 
* 
35 OO IC III ROK ICI COR 2 CK i ok i ak ak kok kak ak deat ak ok ok ak ako of 230 ** $STOP 2K 
002500 37 I7A21 START X'2500° START ADDRESS OF ALL tI! TYPE PROG 231 ** 5} RULE EQUATE X*'0102! x 
000100 38 OQUES EQU X'0100° EQUATED VALUE FOR MDI STATEMENT 232 ** B) ADDRESS OF MESSAGE ek 
000101 39 @FIXT EQU X'0101° EQUATED VALUE FOR MDI STATEMENT 233 ** XK 
000102 40 @STOP EQU X¥'0102° EQUATED VALUE FOR MDI STATEMENT 234 ** $GOTO a ok 
000200 41 @GOTO EQU X*'0200! EQUATED VALUE FOR MDI STATEMENT 235 ** A) RULE EQUATE xX*0200! ae 
000201 42 @CALL EQU X'0201!5 EQUATED VALUE FOR MDI STATEMENT 236 ** B) ADDRESS OF MESSAGE a 
000300 43 @INPT EQU X'0300! EQUATED VALUE FOR MDI STATEMENT 237 ** C) NAME OF MAP TO GO TO ak 
000400 KU MQUXX E X'04008 EQUATED VALUE FOR MDI STATEMENT 238 ** D) ENTRY POINT WITHIN GO TO MAP TO USE 3 
000500 45 aTuUxx EQU X¥'0500'! EQUATED VALUE FOR MDI STATEMENT 239 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE % 
000600 46 ANVLD EQU X'O06008 EQUATED VALUE FOR MDI STATEMENT 241 ** eK 
000000 47 EQ EQU x*Qoooo! EQUATE FOR EQUAL 242 ** S$CALL a 
000004 48 NE FQU X'*OOO4! EQUATE FOR NOT EQUAL 2HU3 ** A) RULE EQUATE X'0201'! % 2 
000008 49 HI EQU X¥'0008! EQUATE FOR 244 ** B) ADDRESS OF MESSAGE HK 
O00000C 50 NH EQU X'OO0C! EQUATE FOR NOT HIGH 245 ** C) NAME OF MAP TO CALL 6 3 
000010 51 LO EQU X¥*0010! EQUATE FOR LOW 246 ** D) ENTRY POINT WITHIN CALLED MAP TO USE eK 
000014 52 NL EQU X'*0014! FOUATE FOR NOT LOW 247 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE eK 
000010 53 LT EQU X*0010! EQUATE FOR LESS THAN 248 *% ae fc 
Q00000C 54 LE EQU x*'oooc! EQUATE FOR LESS THAN OR EQUAL TO 249 ** FINPT 2c > 
000008 55 CT EQU X*'OQ0008! EQUATE FOR GREATER THAN 250 ** A) RULE EQUATE X*0300! K 
000014 56 GE EQU X'O0014! EQUATE FOR GREATER THAN OR EQUAL TO 251 ** B) INPUT TYPE Seer ae OR HEX) % 
000200 57 ON EQU X'02005 EQUATE FOR ON 252 ** C) ADDRESS OF YES LEG RULE * 
000202 58 OF EQU X'0202' EQUATE FOR OFF 253 ** D) DESTINATION LOCATION OF INPUT DATA AK 
000204 59 MX EQU X*O204!8 EQUATE FOR MIXED 254 ** E) LENGTH OF INPUT DATA ok 
000000 60 EBC EQU X*0000! EQUATE FOR EBCDIC DATA TRANSFER 255 ** F) LOWER LIMIT OF GOOD DATA ek 
000001 61 HEX EQU X'OOO1! FQUATE FOR HEX DATA TRANSFER 256 ** G) HIGHER LIMIT OF GOOD DATA % 
000001 62 XTRNL EQU X'O0O018 EQUATE FOR EXTEPNAL REFERENCE 257 ** 2K 
000000 63 INTRNL EQU X*O000! EQUATE FOR INTERNAL REFERENCE 258 ** SQUXX eK 
000000 64 PARM EQU xX'O0O00! EQUATE INDICATING PARAMETER 259 ** A) RULE EQUATE xX'O4OO!? eK 
000001 65 DA EQU X*O0018 FOUATE FOR DEVICF ADDRESS 260 ** B) ADDRESS OF YES LEG RULE * x 
000002 66 UA EQU X'*0002! ee FOR UNIT ADDRESS 261 ** C) TU BRANCH TO ADDRESS (INITIAL % %K 
000000 67 DUMMY EQU x*Qooo! DUMMY EQUATE 262 ** D) TU BRANCH TO ADDRESS (SECONDARY) % 
001800 69 PID EQU *-X'ODOO!® ADDRESS OF MDI HEADER 263 ** E) LENGTH OF PARAMETER IN BYTES * x 
000232 70 PTYPE EQU *-X"2Q2CE! ADDRESS OF PROCESSOR TYPE FIELD 264 ** F) PARAMETER TO PASS TO TU * 
00180C 71 STEPNUM EQU PID+X'OOOC! ADDRESS OF DECIMAL STEP NUMBER 265 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER 3 5 
Q00180E 72 OPWD EQU PID+X'OOOE! ADDRESS OF OPTION WORD ONE 266 ** * ok 
001810 73 OPWD2 EQU PID+x'0010° ADDRESS OF OPTION WORD TWO 267 ** STU XX a 
001818 74 TUSTATUS EQU PID+x'0018'° ADDRESS OF TU STATUS WORD 268 ** A) RULE EQUATE x'0500° OK 
OO181A 75 TUWORK EQU PID+Xt'OOTA'* ADDRESS OF TU WORK AREA 269 ** B) ADDRESS OF YES LEG RULE kK 
00189A 76 TUPARM1 EQU PID+X'OO9A? ADDRESS OF PARM 1 POINTER 270 ** C) TU BRANCH TO ADDRESS * 
00189C 77 TUPARM2 EQU PID#+x'tO09C! ADDRESS OF PARM 2 POINTER 271 ** D) TYPF OF COMPARE TO MAKE ON RESULTS eK 
00189E 78 TUPARM3 EQU PID+X'OOSF*® ADDRESS OF PARM 3 POINTER 272 ** E) LENGTH OF COMPARED RESULTS > ok 
0018A0 79 TUPARM&Y EQU PID+X‘OOAO! ADDRESS OF PARM 4& POINTER 2713 ** F) MASK FIELD FOR COMPARE *x 
0018A2 80 TUPARM5 EQU PID+#X'OOA2! ADDRESS OF PARM 5 POINTER 274 ** G) LENGTH OF PARAMETER IN EYTES % 
OO18A4 81 TUPARM6' EQU PIDt+X'OOAU!? ADDRESS OF PARM 6 POINTER 275 ** H) PARAMETER TO PASS TO THE TU * 
0018A6 82 TUPARM7T EQU PID+X'OOA6! ADDRESS OF PARM 7 POINTER 276 ** I) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER * 
0018A8 83 TUPARMS8 ett PID+X'OOA8!? ADDRESS OF PARM 8 POINTER 277 ** * 
OO18AA 84 TUPARMJY EQU PID+X'OOAA' ADDRESS OF PARM 9 POINTER 278 ** SNVLD 3 
0018AC 85 TUPARM10 EQU PID+X'QOOAC! ADDRESS OF PARM 10 POINTER 2719 ** A) RULE EQUATE X'0600'! eK 
OO18AE 86 TUPARM11 EQU PID+X'OOAE! ADDRESS OF PARM 11 POINTER 281 ** OK 
0018B0 87 TUPARM12 EQU PID+X*OQOBO! ADDRESS OF PARM 12 POINTER 282 ** ENTRY POINT TABLE ok 
0018B2 88 TUPARM13 EQU PID+X*OOB2' ADDRESS OF PARM 13 POINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT aK 
0018B4 89 TUPARM14 EQU PTD+X'OOBU! ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE * 
0018B6 90 TUPARM15 EQU PID+X'OOB6! ADDRESS OF PARM 15 POINTER 285 *% REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: % 
0018B8 91 TUPARM16 EQU PID+X'OOBS8' ADDRESS OF PARM 16 POINTER 286 ** 3 
OO18BA 92 TUMSGWTR EQU PID+X'OOBA'® ADDRESS OF -> TO COMMON MSG WRITER 287 ** A) NAME OF ENTRY POINT OK 
OO18BE $3 TUUA EQU PID+X'OOBE! ADDRESS OF UNIT ADDRESS IN EBC 288 ** B) ADDRESS OF ENTRY POINT RULE TABLE * x 
0018C0 94 TUDA EQU PID+x'*tQOCO!® ADDRESS OF DEVICE ADDRESS IN EBC 289 ** OK 
0018C2 95 TUBUFF EQU PID+xX!'00C2' ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TARLE END IS INDICATED BY A x*0000! * 
0018C4 96 TULAST FOU PID+xX'O0OC4! ADDRESS OF LAST ADDRESSABLE WORD 291 ** ek 
0018C6 97 TURESULN EQU PTD+X'OOCE6! ADDRESS OF LENGTH OF TU RESULTS 292 ** MESSAGE TABLE eK 
0018C8 98 TURESUL EQU PID+x'oocs'! ADDRESS OF TU FPESULTS FIELD 293 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR ee 
0018FC 99 MAPNAME EQU PID+X'OOFC* ADDRESS OF MAP NAME FIELD IN HEX 294 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: * 
001948 100 TUINPT EQU PTD+xX'O148! ANDRESS OF $INPT DATA 295 ** a 3K 
OO0196E 101 PARMARA EQU PID+X'O16E! ADDRESS OF $INPT INPUT AREA 296 ** A ae FOR START OF MESSAGE BLOCK ak 
0019B8 102 @DCADD1 EQU PID+X'O1B8! MDI POINTER 297 ** B) NUMBER OF LINES OF MESSAGE * 
OO019BA 103 @DCADD? EQU PID+X*O1BA!? MDI POINTER 298 ** C) LENGTH OF FOLLOWING LINE * 
0019C4 104 SUPSTAT EQU PID+xX*O1C4! ADDRESS OF MDI STATUS 299 ** D) FIRST LINE OF MESSAGE 1K 
0019D0 105 DEVADD EQU PID+X*O1DO! ADDRESS OF DEVICE ADDRESS TABLE O 300 ** E) LENGTH OF FOLLOWING LINE ** 
QOO19DA 106 DEVADD1 EQU PID+X'O1DA'* ADDRESS OF DEVICE ADDRESS TABLE 1 301 ** F) SECOND LINE OF MESSAGE ok 
O019E4 107 DEVADD2 FQU PID+X'OTE4! ADDRESS OF DEVICE ADDRESS TABLE 2 302 ** G) ETC. 1K 
QNO19EE 108 DEVADD3 EQU PID+X'O1EE! ADDRESS OF DEVICE ADDRESS TABLE 3 303 ** * 
0019F8 109 DEVADD4 EOU PID+X'O1F8? ADPRFSS OF DEVICE ADDRESS TABLE & B04 2 RI IO I IOI IO IORI IOI IR IGOR ROI RR I a OR RR RR ROR a RK IO ROK FR OR ak 
Q001A02 110 DEVADDS EQU PTD+xX!'0O202' AMDPFSS OF DFVICE ADDRESS TABLE 5 305 oR kt OK Gk kkk kif tok tok ik ik kak kag kofagakak tage kak kta teak kako aca ak 
OOTANC 111 DEVADD6 EQU PID+xX'O20C* ADDRESS IF DEVICE ADDRESS TABLE 6 
001A16 ee DEVADD7 ae een Oeie" RDDRESS OF DEVICE ADDRESS TABLE 7 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATFMENT COPYRIGHT IBM CORP 1976 
2818+* 3 INTERRUPT RECEIVED IN 11 ISB BITS ON (1-7) ISBON 2935 * ‘8 
28 133% 2336 * EQUATES USED BY TU'S AS CONSTANTS . 
+* : 
ee ¢ HARD BanOn FOURS. ie 12 Gia ce neon von? ee 2938 Me HK HK HH aK eH a eK oe KK KK OK OK KK KK KKK OK KK KK KK KK KK 
2822+* 6 WRONG INTR LEVEL SLE 14 NO INTERRUPT NOIN OOO04E 2939 PLUS EQU Cie PLUS CHAR 
2823+* 7 NO INTR EXPECTED NI 15 INTERRUPT CC ERROR INCC 000060 2940 MINUS EQU Clas MINUS CHAR 
28244+* BIT HEX 000000 2942 ZERO EQU 0 
000020 28254MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 000001 2943 ONE EQU 1 
000021 2826+ER EOU 33 1 mM ERROR RECEIVED ON INTERRUPT 000002 2944 TWO EQU 2 
000022 2827+4+X1I EQU 34 2 2 FXPECTED INTERRUPT CONTROL BIT 000003 2945 THREE EQU 3 
000023 2828+IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 000004 2946 FOUR EQU 4 
000024 2829+XE EQU 36 rT 8 EXPECTED ERROR RESPONSE 000005 2947 FIVE EQU 5 
000025 2830+HE EQU 37 5 4 HARD ERROR, 8 RETRIES 000006 2948 SIX EQU 6 
000026 28314+$LE EQU 38 6 2 INTERRUPT ON WRONG LEVEL ERROR 000007 2949 SEVEN EQU 7 
000027 28324NI EQU 39 7 1 NO INTERRUPT EXPECTED E 000008 2950 EIGHT EQU 8 
000028 2833+CS EQU 40 8 8 CYCLE STATUS IN PROGRESS 000009 2951 NINE EQU 9 
000029 28344+CSA FOU 41 9 rm CYCLE STEAL AVAILABLE OOOOOA 2952 TEN EQU 10 
OO002A 2835+CE EOU 42 10 2 CYCLE STEAL STATUS INERRRUPT ERROR 00000B 2953 ELEVN EQU 11 11 
000028 2836+ISBON EQU 43 11 1 ISB BITS ON (1-7) 00000C 2954 TWELV EQU 12 12 
00002C 2837+NG EQU yy 12 8 TEST UNIT RESULTS NO GOOD 00000D 2955 THRTN EQU 13 13 
00002D 2838+I0CC EQU 45 13 4 OIO CC ERROR QO000F 2956 FIVIN EQU 15 15 
00002E 2839+NOIN EQU 46 14 2 NO INTERRUPT 000010 2957 SIXTN EQU 16 16 
00002F 2840+INCC EQU 47 15 1 INTEPRUPT CC ERROR 000020 2958 THRY2 EQU 32 a2 
28414+* 000040 2959 SIXTY EQU 64 64 
2842+% COMMON BUFFER FOR PRINTING DATA 000080 2960 ONE28 EQU 128 128 
2843+% 000100 2961 TWOS56 EQU 256 256 
003634 0000 2845+$TUID DC A (*-* TEST UNIT IDENTIFICATION 000400 2962 ONEK EQU 1024 1024 
003636 0000 2846+$IOIN DC A (*-* T/O AND INTR CONDITION CODES 000800 2963 TWOK EQU 2048 2048 
003638 0000 2847+$1SB DC A (*-—% R7, INTR STATUS BYTE & DEV ADRS 000C00 2964 THREK EQU 3072 3072 
00363A 0000 2848+LSTIO DC A(*-* ADRS OF LAST I/O + 4 BYTES 001000 2965 FOURK EQU 4096 4096 
00363c 0000 28494+DEV1 DC A (*-* DEVICE DEPENDENT DATA PREEPe 2967 M1 EQU -1 =A 
00363E 0000 2850#DEV2 DC A (*-* * FFFFFE 2968 M2 EQU =2 a4 
003640 0000 28514+DEV3 DC A (*-* * FFFFFD 2969 M3 EQU —3 = 
003642 0000 2852+DEV4 DC A (*-* CS STATUS ERROR ISB §& INTR CC FFFFFC 2970 M4 E 4 = 
00363C 2853+SCTID EQU DEV1 READ ID BUFFER FOR IBIS & TERN QPOTD RH HH KK HR KH ee a a a Ke ee 2 2 hc fe 2 2h ef he 2 a 2 a a a 2 2 ake 2c fe of a a a aie kc ee ae 2 ae fe ek te ke oe af ok ok 
003644 2854+DCBUF EQU * DCB BUFFER FOR LAST DCB USED 2973 * . 
003644 0000 2855+DCB1 DC A (*-* LAST DCB TABLE, CONTROL WORD 2974 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 
003646 0000 2856+DCB2 DC Al*x-* LAST DCB TABLE, DEV DEP WORD 2975 * BFGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 
003648 0000 2857+DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 2976 * * 
OO364UA 0000 2858+DCBY4 pc A(*~* LAST DCB TABLE, DEV DEP WORD DOT T RK He ye he i a 2 a he of 2 fe ee 2 2 ae a ca 2k a oie 2k a 2 a ae 2h ake ae of fc a ae 2k ae 2k te ic ake Ro ke a ak ae ak ak ae ke eo ic ake ke a ok ok 
00364C 0000 2859+DCB5 DC A(*-* LAST DCB TABLE, DEV DEP WORD 000000 2978 BSO EQU 0 
00364E 0000 2860+DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS 000001 2979 BS1 EQU 1 
003650 0000 2861+#DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 000002 2980 BS2 EQU 2 
003652 0000 2862+DCB8 DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 000003 2981 BS3 EQU 3 
2953+* 000004 2982 BS4 EQU 4 
003654 2864+CSBUF EQU * CYCLE STEAL DATA BUFFER 000005 2983 BS5 EQU 5 
003654 0000 28654+CSTL1 DC A (*-* STATUS WD 0, RESIDUAL ADDRESS 000006 2984 BS6 EQU 6 
003656 0000 2866+CSTL2 DC A (*-* CS STATUS WD 1, RESIDUAL COUNT 000007 2985 BS7 EQU 7 
003658 0000 2867+CSTL3 DC A(*-* CS STATUS WD 2, RETRY CNT WD 1 000008 2986 BS8 EQU 8 
00365A 0000 2868+CSTLY DC A (*-* CS STATUS WD 3, RETRY CNT WD 2 000009 2987 BSY EQU 9 
00365C 0000 28694CSTL5 DC A (*-* CS STATUS WD 4, ERROR STATUS WD 1 OOOOOA 2988 BS10 EOQU 10 
00365E 0000 2870+CSTL6 DC A (*-* CS STATUS WD 5, ERROR STATUS WD 2 00000B 2989 BS11 EQU 11 
003660 0000 28714CSTL7 DC A (*-* CS STATUS WD 6, LAST DCB ADDRESS 00000C 2990 BS12 EQU 12 
003662 0000 2872+CSTL8 DC A (*-* CS STATUS WD 7, PREVIOUS HD/CYL 00000D 2991 BS13 EQU 13 
003664 0000 2873+CSTLI DC A (*-* CS STATUS WD 8, CURRENT HD/CYL OOO000E 2992 BS14 EQU 14 
003666 0000 28744+CST10 DC A (*-* CS STATUS WD 9, FLAG/SECTOR OOO000F 2993 BS15 ae 15 
003668 0000 2875+CST11 DC A (*-* CS STATUS WD 16, HEAD/CYLINDER 2995 COPY TV7AOQODCB 23JAN78 
00366A 0000 2876+CST12 DC A (*-* CS STATUS WD 11, DIAG BYTES 1, 2996 ** (T7AOODCB) 
00366C 0000 2877+CST13 DC A (*-* CS STATUS WD 12, AND 3 + WRAP athe 2997 * 
8784+% 2998 2 Io OR a CG a a oo aioe acdokoiacktck i 72 8/7 7K CK Ak 
00366E 0000 2879+SSUBN DC A (*-* LAST SUPROUTINE ADDRESS USED 2999 * 
003670 00000000 2880+$DATA DC 2K (*-* OPTIONAL DATA 3000 * DCB TABLES AND DC'S 
003674 0021 28814+$INTL DC Xx'0021! INTERRUPT LEVEL REQUESTED 3001 * 
003676 0000 28824+TURTN DC A (*-*) TEST UNIT RETURN ADRS TO MDI BOO D A RA A HK Fe KH I I KK A I I a a a 2 ee OK a a a a ic ce ate oc ae ae tc ae kc oe ake 2c ick ake ok ok 
003678 00 2883+$DVID DC x'oo? DEVICE ID 3003 * 
00367A 19D0 28844SVCAL DC A (DEVADD) ADRS OF DEVICE ADDRESS 3004 ***** DIAGNOSTIC DCB *******% 
00367C 0000 2885+ DC A (¥*-*) IBIS CYLINDER ADDRESS 3005 * 
2886+%* 003686 2008 3006 DGDCB DC X'2008! DIAGNOSTIC DCB 
2887+% THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 003688 0000 3007 DC A (*—* FLAG / PHYSICAL SECTOR# 
28884+* FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE 00368A 0000 3008 DC L e=* HEAD / CYLINDER#'S 
2889+% STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. 00368C 0000 3009 DC ‘000 NOT USED 
2890+ 00368E 3760 3010 DC ven RSB RES 
00367E 4020 3634 7A02 2891+T7A02 MVWI X'7A02',$TUID SET UP TEST UNIT ID 003690 0000 3011 DC CHAINING ADDRESS 
003684 5700 2892+ BXS RJ RETURN TO MDI SUPVR 003692 0100 3012 DC "010 BYTE COUNT 
2894 COPY QU 003694 0000 3013 DC we *) DATA ADDRESS 
2895 Pre Se rte ee ET eR re et Ir ee eRe are ee rr ares 3014 * 
2896 2* * 3012 ee RECALIBRATE DCB ****k%*** 
* EQUATED NAMES FOR SUPPORTED SVC'S * 
5898 * ° * 003696 0001 3017 CLDCB DC X¥*O00O1! RECALIBRATE DCB 
2899 oO IO IO II IOC CIO I Io Ia ak a akaioie aio tafe fake ai ak ak ak ak ak ofc ake ake ak akc ofc 003698 Q0000000000000000 3018 DC TA (¥-*) 
000000 2900 OUT EQU 0 OUT SVC 3019 * 
000001 2901 OUTIN EQU 1 OUTIN SVC 3020 ****k* WRITE SECTOR ID ***K***X 
000002 2902 IDLE EQU 2 IDLE SVC 3021 * 
000003 2903 IDLES EOU 3 IDLE SVC - INDFPENDENT OF CPU TYPE 0036A6 002D 3022 WSDCB DC X*OO2D! WRITE SECTOR ID CNTL WORD 
000004 2904 CHNGE EQU 4 CHANGE LEVEL SVC Q0036A8 0000 3023 DC A as FLAG / PHYSICAL SECTOR# 
000005 2905 PGMCK FOU 5 ALLOW RFTURN ON PROGRAM CHECK SVC OO036AA 0000 3024 DC A (*-* HEAD / CYLINDER#'S 
000006 2906 EXIT EQU 6 FXYIT SVC OO0O36AC 0000 3025 DC X*o0008 NOT USED 
000007 2907 TERM EQU 7 TERMINATE SVC OO036AE 3760 3026 DC A (RSBA) RSB ADDRESS 
000008 2908 RESET EQU 8 RESET DEVICE SVC 0036B0 0000 3027 DC A (*-* CHAIN ADDRESS 
000009 2909 RID EQU 9 READ ID SVC 0036B2 0004 3028 DC x'ooour BYTE COUNT 
OOOOOA 2910 START EQU 10 START CYCLE STEAL SVC O0036B4 3754 3029 DC A (WRSID) ADDR OF SECTOR ID DATA 
00000B 2911 sTCSS EQU 11 START CYCLE STEAL STATUS SVC 3030 * 
00000C 2912 PREP EOU 12 PREPAPE DEVICE SVC 3031 ***** READ SECTOR ID DCB ***#*** 
00000D 2913 READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 3032 * 
OOO00R 2914 READ1 EQU 14 READ WITH FUNCTION BIT 3 ON SVC 0036B6 201C 3033 RSDCB DC X'201c! READ SECTOR ID CNTL WORD 
OOO0O0F 2915 RSTAT EQU 15 READ STATUS SVC 0036B8 0000 3034 DC A(t * FLAG / PHYSICAL SECTOR# 
000010 2916 WRITO EOQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 0O036BA 0000 3035 DC X*O0O00! HEAD / CYLINDER#'S 
000011 2917 WRIT1 EOQU 17 WRITE WITH FUNCTION BIT 3 ON SVC 0036BC 0000 3036 DC X*0000! NOT USED 
000012 2918 CTRL EQU 18 CONTROL SVC OO036BE 3760 3037 DC A RSBA) RSB ADDRESS 
000013 2919 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 0036C0 0000 3038 DC A (*-* Nia CHAIN ADDRESS 
000014 2920 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 0036C2 0004 3039 DC X*000 BYTE COUNT FOR READ SECTOR ID 
000015 2921 HIO EQU 21 HALT ALL I/0 0036C4 363C 3040 DC A (SCTID) SECTOR ID DATA ADDRESS 
000016 2922 REQOSD EQU 22 REQUEST USE OF DCP DISK SVC 3041 * 
000017 2923 RELSD EOU 23 RELEASE USE OF DCP DISK SVC 3042 ***** SEEK DCB *****%%*% 
000018 2924 HALT EQU 24 HALT SVC 3043 * 
000019 2925 ETOH EQU 25 EBCDIC T0 HEX SVC (STRING 0036C6 0000 3044 SKDCB DC X'*O00O0! SEEK DCB CONTROL WORD 
OOOO1A 2926 HTOE FOU 26 HEX TO EBCDIC SVC {STRING 0036C8 0000 3045 DC X'O000! NOT USED 
00001B 2927 ATOH EQU 27 ASCII TO HEX SVC TRING 0036CA 0000 3046 DC tooo HEAD eee Se NDER. Ss 
00001C 2928 HTOA EQU 28 HEX TO ASCII SVC (STRING 0036CC 0000 3047 DC X*o000!8 NOT 
00001D 2929 ETOA EOQU 29 EBCDIC TO ASCII SVC (STRING 0036CE 3760 3048 DC A gSea) RSB ADDRESS 
OO001E 2930 ATOE EQU 30 ASCII TO EBCDIC Svc (STRING 0036D0 0000 3049 DC A ape CHAIN ADDRESS 
O0001F 2931 READI EQU 31 READ DATA SETS FOR MDI/UTIL 0036D2 0000 3050 DC X*OOO0! NOT USED 
000020 2932 WRITI EQU 32 WRITE DATA SETS FOR UTIL 0036D4 0000 3051 DC X*Q000! NOT USED 
2934 RK NK of He ie aK he a ak he ae oe he he oe a fe oe ik ate ae oe afc ae he oe ae OK ic ok ae ako oe 2 Re ae Kc ae ak oe che 2 ake KK ie ok fe 2 ac KK KK Oe Kk AK OK Ok Kk kk ok 3052 * 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3053 ***** CYCLE STEAL STATUS DCR ****** «x 3167 * BXS (R6,2) - NORMAL 
3054 * 3168 * 
0036D6 2000 3055 CSDCB DC X'2000! CONTROL WORD 3169 * 
0036D8 0000 3056 DC For NOT USED CEMA TS TS STS STS SS SST SESS S TSS TS SS TSS SS SST SLT SS ST SS SSCS SSS SSeS SSeS SSS CSS LCL eS S + ef 
0036DA 0000 3057 DC Ftgoe NOT USED 3171 * 
0036DC 0000 3058 DC F'or NOT USED 00377A 4724 0004 3172 CMPRW MVWI COMPARE BYTE COUNT 
0036DE 0000 3059 DC Fro? NOT USED 00377E 4324 363C 3173 MVA SeRID, R3 ADDR OF RD SEC ID DATA 
0036EO 0000 3060 DC Ftor NOT USED 003782 4524 3754 3174 MVA WRSID,R5 ADDR OF WR SEC ID DATA 
0036E2 OO1A 3061 DC X'OO1A! 13 WORDS OF STATUS 003786 2BA6 3175 CFNEN R3) (85) COMPARE ID DATA 
O0O36E4 3654 3062 DC A (CSBUF) ADDRESS OF CYCLE STEAL STATUS JATA 003788 68C0O 0002 3176 BE 2) BCH IF WRITE ID DATA OK 
3063 * 00378C 68D2 0000 3177 COMPARE ERROR 
3064 ****x WRITE DCB KK he Ke ok af ok 3 ake 2k 3179 eee eu ca L sails Ok ce WE waa 650 no ee eee 
3065 * 3180 * 
0036E6 0028 3066 WRDCB DC X*0028! WRITE DATA DCB CNTL WORD 3181 * EXECUTE INPUT & OUTPUT COMMANDS 
0036E8 0000 3067 DC A (*-* FLAG / RECORD? 3182 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
0036EA 0000 3068 DC A (k-* HEAD / CYLIDNER#'S 3183 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 
0036EC 0000 3069 DC A *-* SCAN / REPEAT COUNT 3184 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 
0036EE 3760 3070 DC A (RSBA) RSB ADDRESS 3185 * SUPVR CALL. 
0036F0 0000 3071 DC A ar CHAIN ADDRESS 3186 * 2 
0036F2 0100 3072 DC X¥*0100! BYTE COUNT 3187 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 
0036F4 0000 3073 DC A (*-*) WRITE DATA ADDRESS 3188 * ; 
3074 * 3189 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 
a07 ont VERIFY DCR Se EK 3130 ; 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 
0036F6 0019 3077 VRDCB DC x*0019! CONTROL WORD 3192 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
0036F8 0000 3078 DC A (*-* FLAG / RECORD# 3193 *% : 
0036FA 0000 3079 DC A *—* BEAD / CYLINDER#'S 3194 * 1 BAL SRKEW,R6 READ SECTOR ID SKEWED 
0036FC 0000 3080 DC A (*-* SCAN / REPEAT COUNT 3195 * Z 
0036FE 3760 3081 DC A (RSBA) RSR ADDRESS 3196 * 2 BAL SWKEW, R6 WRITE SECTOR ID SKEWED 
003700 0000 3082 DC A (*-* CHAIN ADDRESS 3197 * F 
003702 0000 3083 DC A (*-* BYTE COUNT 3198 * 3 BAL SWSEC,R6 WRITE SECTOR ID 
003704 0000 3084 DC F'or NOT USED 3199 * - 
3085 * 3200 * 4 BAL SDIAG,R6 DIAGNOSTIC 
3086 ***** READ DCB se a ke 3201 * 5 
3087 * 3202 * 5 BAL XIOCS,R6 CYCLE STEAL STATUS 
003706 2018 3088 RDDCB DC X*2018!8 READ DCB CONTROL WORD 3203 * - 
003708 0000 3089 DC A (*-* FLAG / RECORD# 3204 * 6 BAL SSEEK,R6 SEEK 
00370A 0000 3090 DC A (*-* HEAD / CYLINDER#'S 3205 x - 
00370C 0000 3091 DC A (*~* SCAN / REPEAT COUNT 3206 * 7 BAL SRECL, R6 RECALIBRATE 
00370E 3760 3092 DC A (RSBA) RSB ADDFESS . 3207 * “ 
003710 0000 3093 DC A (*-* CHAIN ADDRESS 3208 * 8 BAL SRDID,R6 READ SECTOR ID 
003712 0100 3094 DC x¥*0100' BYTE COUNT 3209 * a 
003714 0000 aoe? 7 pc A (*-*) READ DATA ADDRESS aaa : 9 BAL SRD, R6 READ 
3097 ii WRITE SECTOR ID SKEWED ee 3 2c 544 : 10 BAL SRDVY,R6 READ VERIFY 
003716 OO0O2F 3099 WKDCB DC X"'OO2F# CONTROL WORD 3214 * 11 BAL SWRT,R6 WRITE 
003718 0000 3100 DC A (*-* FLAG / PHYSICAL SECTOR# 3215 * 
00371A 0000 3101 Dc A (*- HEAD / CYLINDER#'S 3216 * 12 BAL SRDIM, R6 READ MULTI SECTOR IDS 
00371cC 0000 3102 Dc FtoO NOT USED 3217 * 
OO371E 3760 3103 DC A SBA) RSB ADDRESS 3218 Pf FF SS SS SS SS StS SSS PS SSS TSS ESS SSL SSS SSS SSS SSSSSLSSSSSSS SSS SSS SSP SL TES SS 
003720 0000 3104 DC a te ae CHAIN ADDRESS 3219 * 
003722 0004 3105 DC X*000 BYTE COUNT 003790 4020 39A8 36C6 3220 $SEEK MVA SKDCB,1IODCB SET UP CONTROL BLOCK FOR SVC CALL 
003724 3754 3196 : DC A (WRSID) ADDR OF SECTOR ID DATA 003796 507F 3321 : J XIO 
3108 **** READ SECTOR ID SKEWED ek aK 003798 4020 39A8 3696 3223 $RECL MVA CLDCB, IODCB SET UP BLOCK FOR SVC CALL 
3109 * 00379E 507B 3224 J XIO 
003726 201D 3110 RKDCB DC X*201D!* CONTROL WORD 3225 * 
003728 0000 3111 DC A vi : FLAG / PHYSICAL SECTOR# 0037A0 4020 3938 36B6 3226 $RDID MVA RSDCB, IODCB SET UP BLOCK FOR SVC CALL 
00372A 0000 3112 DC A HEAD / CYLINDER#!S 0037A6 OBBB 3227 MVBI X'BB!,R3 SET BUFFER TO B'S 
00372c 0000 3113 DC F! OF NOT USED 0037A8 4524 363C 3228 MVA SCTID, R5 SETUP READ SECTOR ID BUFFER ADRS 
00372E 3760 3114 DC A ney) RSB ADDRESS 0037AC 4724 0004 3229 MVWI gl SETUP BUFFER LENGTH 
003730 0000 3115 DC CHAIN ADDRESS 0037B0 2BAC 3230 FFN {8 5) INIT READ SECTOR ID BUFFER 
003732 o0004 3116 DC x! 000 BYTE COUNT 0037B2 4020 36C4 363C 3231 MVA RS, D,RSDCB+14 DATA ADDR 
003734 363C ape ‘ pc A (SCTID) SECTOR ID DATA ADDRESS 0037B8 506E 3232 ‘ J ed 
3119 **** READ MULTIPLE SECTOR IDS KK OO0O37BA 4020 39A8 3736 3234 $RDIM MVA RMDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
3120 * 0037C0 4724 0084 3235 MVWI 132,-R7 SET BUFFER LENG 
003736 201C 3121 RMDCB DC X*201C! CONTROL WORD 0037C4 4524 3770 3236 MVA TD06 RS SET BUFFER ADDRESS 
003738 0000 3122 DC A . : FLAG / PHYSICAL SECTOR# 0037C8 OBBB 3237 MVBI X'BB!,R3 SET CLEAR CHARACTERS 
00373A 0000 3123 DC A HEAD / CYLINDER#'S 0037CA 2BAC 3238 FFN R3 (R5) CLEAR THE BUFFER 
00373cC 0000 3124 DC Ft or NOT USED 0037CC 5064 3239 J X16 
00373E 3760 3125 DC A (RSBA) PSB ADDRESS 3240 * 
003740 0000 3126 DC A Pach CHAIN ADDRESS 0037CE OBFF 3241 $RD MVBI X'FF!,R3 SETRD BUFFER TO ALL F'S 
003742 0084 3127 DC xXx'008 BYTE COUNT 0037D0 6D08 3714 3242 MVW RDDCB4+14,R5 SET UP READ BUFFER ADRS 
003744 3770 3128 DC A (ID0O) DATA AREA ADDRESS 0037D4 6F08 3712 3243 MVW RDDCB412, R7 SET UP BUFFER LENGTH 
3129 * 0037D8 2BAC 3244 FFN Ak 5) CLEAR READ BUFFER 
3130 * CONSTANTS AND DEFINED STORAGE LOCATIONS 0O037DA 4020 39A8 3706 3245 $RDS MVA RDS B, LODCB SET UP BLOCK FOR SVC CALL 
003746 0000 3131 ZEROO DC x*o00008 CONSTANT ZERO 0037E0 505A 3246 J 
003748 0001 3132 ONE1 DC xX'00018 CONSTANT ONE 3247 * 
00374A 0000 3133 RAY DC Wee) WRITE PARAMETER POINTER 0OO037E2 4020 39A8 36F6 3248 SRDVY MVA VRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
00374C EB6D 3134 WDATA DC X"EB6D! WRITE DATA 0037E8 5056 3249 J XIO 
00374E G6BDB 3135 DC X"6BDB* * 3250 * 
003750 0000 3136 LGSEC DC x*O000!8 LOGICAL SECTOR # OO37EA 4020 39A8 36EF6 3251 S$WRT MVA WRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
003752 0000 3137 PHYSC DC X¥'0000! CONVERTED PHYSICAL SEC # O0037FO0 5052 3252 J xIO 
003754 0000 3138 WRSID DC x*o0008 FLAG,SECTOR (WRT SECTOR ID DATA) 3253 * 
003756 0000 3139 DC X¥*0000! HEAD,CYLINDER 0037F2 4020 39A8 3726 3254 $RKEW MVA RKDCB, LODCB SET UP CONTROL BLOCK FOR SVC CALL 
003758 FF34 3140 WSIDT DC X* FF348 WRITE SECTOR ID TEST DATA 0037F8 ORBR 3255 MVBI X'BBt,R3 SET BUFFER TO BtS 
00375A 5678 3141 DC X'5678! OO37FA 4524 363C 3256 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 
00375c 0000 3142 SCTST DC X*O00008 READ SECTOR ID TEST DATA BUFFER OO37FE 4724 0004 3257 MVWI 4,R7 SETUP BUFFER LENGTH 
00375E 0000 3143 DC x*o0008 003802 2BAC 3258 FFN R3 £85) INIT READ SECTOR ID BUFFER 
003760 00000000000000000 3144 RSBA_ DC AT ed RESIDUAL STATUS BLOCK 003804 4020 3734 363C 3259 MVA SCID, RKDCB+14 DATA ADDR 
00376C 0000 3145 CTRO2 DC x'*0000! COUNTER OO380A 5045 3260 J XIO 
00376E 0000 3146 CTRO3 DC x*o000!8 COUNTER 3261 * 
003770 0000 3147 IDO0O0 Dc x*00008 ID ADDRESS TO BE SET BY USER 00380C 4020 39A8 3716 3262 S$WKEW MVA WKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
003772 1010 3148 PDATA DC X¥*10108 WRITE DIAG WORD 1 DATA PATTERNS 003812 4020 3724 3754 3263 MVA WRSID, WKDCB+14 DATA ADDR 
003774 5555 3149 DC X¥*5555' x 003818 503E 3264 J 
003776 AAAA 3150 DC X"AAAA* * 3265 * 
003778 FFFF 3151 DC X*FFFF? * 00381A 4020 39A8 36A6 3266 $WSEC MVA WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
3152 * 003820 4020 36B4 3754 3267 MVA WRSID,WSDCB+14 DATA ADDR 
3133 ACI II II tok a act 880K 40) 6 77 ROR II CI IB IOI I I ICI ak fk 003826 5037 3268 J XIO 
% 3269 * 
3155 * SUBROUTINE 003828 4020 39A8 3686 3270 S$DIAG MVA DGDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
3156 * 00382E 5033 3271 XIO 
3157 * PURPOSE 3272 * 
3158 * 003830 6E0D 363A 3273 SWRTO MVW R6,LSTIO SAVE IAR FOR RETRY IF REQUESTED 
3159 * COMPARF READ SECTOR ID DATA TO WRITE SECTOR ID DATA 003834 OBFF 3274 MVBI 255,R3 CLEAR CYCLE STATUS BUFFE 
3160 * 003836 4524 3654 3275 MVA cSBOE, R5 * TO ALL ONES 
3161 * CALLING SEQUENCE 00383A OF16 3276 MVBI 22 * 
3162 * 00383C 2BAC 3277 FFN mt: £5) * 
3163 * BAL CMPRH,R6 (NORMAL) 00383E 4524 3644 3278 MVA Rae 5 CLEAR DCB BUFFER TO ALL ONES 
3164 * 003842 OF10 3279 MVBI TERT * 
3165 * RETURN 003844 2BAC 3280 FFN R3 $R5) * 
3166 * 003846 4020 3636 0708 3281 mVWr x'6708 ,S10IN OVERLAY OLD CONDITION CODES 
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3282 MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE 
3283 TBTR (R4,IN CLEAR INTERRUPT RECEIVED CNTL BIT 
3284 TBTR (R4,ER RESET ANY EPROR BEFORE I/0 COMMAND 
3285 TBTS (R4O/XT SET EXPECTED INTR CONTROL BIT 
3286 MVA OBLK,R7 SFT UP CONTROL BLK FOR SUPR 
3287 MVB IOMOD+1,R0 GET IDCB FUNC/MODIFIER 
3288 RBTWI X*OOFO',TOMOD REMOVE FUNCTION FROM *IOMOD! 
3289 SRL 4,RO RIGHT JUSTIFY FUNCTION BITS IN RO 
3290 CBI 5.R0 IDCB FUNCTION = 5? 
3291 JE SaRT1 YES - ISSUE 'SVC WRIT1! 
3292 SVC WRITO ISSUE WRITE DPC '4Xx' OP 
3293 XI08-4 GO WAIT FOR THE INTERRUPT 
3294 $WRT1 SVC WRIT1 ISSUE WRITE DPC '5x* Op 
3295 : XTO8-4 GO WAIT FOR THE INTERRUPT 
3297 $DGWR MVA  WRDCB,IODCB SET UP CONTROL BLK FOR SVC CALL 
3298 : ODG ISSUE START CS DIAG CMD 
3300 $DGRD MVA  RDDCB,IODCB SET UP CONTROL BLK FOR SVC CALL 
3301 MVH RDDCB4+12,R7 GET NO. OF BYTES TO CLEAR 
3302 MVW RDDCB+14,R5 ADDR OF READ BUFFER 
3303 MVBI X'FFt,R3 CLEAR TO F'S 
3304 FFN 3, (R5) % 
3305 B XIODG ISSUE START CS DIAG CMD 
3307 COPY TV7AXEQ O9MART78 
3308 PRINT OFF 
3872 T7AXEO 
3 BT 3 HK RH HH HH HHH HK He HE BI IK 2 KK ie a 2 2 2K 2c 2 2c 2c ee 2h 2k he ok a a oc ok ak ok kK KK DAO TUL 7 6** 
3874+ 
3875+* SUB-ROUTINE 
3876+% 
3877+* EXECUTE INPUT AND OUTPUT COMMANDS 
3878+* 
3879+* PURPOSE 
3880+ 
3881+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
3882+ THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 
+ 
3884 4% 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 
38854+* THE I/O COMMAND. 
3886+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 
3887+ ISSUED BY THIS SUBROUTINE. 
388844 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 
3889+% START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 
3890+* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 
3891+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 
3892+% MYSTERY INTERRUPT (MI) CONTROL BIT IS SET. 
3893+* 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE 
3894+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE "SVC START. 
3895+4+% 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 
38964+* STARTS TO DETERMINE A LOST INTERRUPT. 
38974+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 
3898+% WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 
3899+4+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 
3900+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 
3901+* 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 
3902+# 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 
3903+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 
3904+% ISSUED BY THIS SUBROUTINE. 
3905+ 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A 
3906+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 
390744 COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 
+ 
3909+* CALLING SEQUENCE 
3910+ 
391144 THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
+ 
3913+* --> BAL xXIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 
3914+* --S BAL xXIO1 MOD PARM PRELOADED IN 'zromop® 
3915+* --> BAL XIOCS,R6 OR XEQ STAPT CYCLE STEAL STATUS, MOD=F 
3916+* --> BAL XIOCS-4,R6 - AUTO CS STATUS (FOLLOWING OTHER XIO 
3917+ : AND DOES NOT POST INTERRUPT STATUS) 
+ 
3919+* RETURN CONTROL 
3920+* 
3921+% BXS R6, 2) RETURN TO USER NO ERROR 
3922+* OR 6{ * RETURN AND RETRY ON ERROR 
CEPR LST LSS LSS SS SESS SEES SSS ES SESS SS STL ESS STS SS SSE LESS STS ES SPSS TS SS SS SS 5S SSS 
39254+XIO MVWZ IOMOD,R3 SET MOF OF 0 FOR CYCLE STEAL OP 
3926+ J XIO1 CS I/O'S ARE NOT PETRIED 
+ 
3928+XIODG MVWI X'OOOD",IOMOD SET MODIFIER FOR DIAGNOSTIC OPS 
3929+ J XIO1 GO TO CS OPS 
+ 
3931+ TBTR (R4,CE RESFT CS STATUS INTER ERROR INDICAT. 
39 32+ TBTS (R4-CS SFT 'CYCLE STEAL STATUS* IN PROGRESS 
3933+XIOCS MVA SDCB, LODCB SET UP CONTROL BLOCK FOR SVC CALL 
39344 MVWI X*OOOFt, TOMOD SET CYCLE STEAL MODIFIER 
3935+ TBT (Ed CS) IS CS IN PROGRESS, ERROR CONDITION 
3936+ JON T02 * YES, BYPASS SAVING I/O ADRS 
39374+XI01 MVW  R6,LSTIO SAVE TAR FOR RETRY IF REQUESTED 
3938+ MVA BUF, R3 SET UP TO ADRS TO MOVE DCB TABLE 
3939+ MVW  IODCB,RS * AND THE FROM ADRS, ALONG WITH 
3940+ MVBI 26,R7 * THE NUMBER OF MOVES 
3941+ MVFN SRB) 483) MOVE 1 STATUS WORD AND ADJUST 
3942+ MVBI 255,k CLEAR CYCLE STATUS BUFFER 
3943+ MVA  CSBOF,RS5 * TO ALE ONES * 
39444 MVBI 26,R * 
3945+ FFN R3 §R5) * 
3946+ MVWI xX'6708",$IOIN OVERLAY OLD CONDITION CODES 
394+ MVWZ $ISB,R3 ZERO OUT OLD ISB VALUE 
+ 
39494 TBTR (R4,ER RESET ANY ERROR BEFORE I/O COMMAND 
3950+xXI02 TBTR (R4-IN CLEAR INTERRUPT RECEIVED CNTL BIT 
39514 MVA OBLK,R7 SFT UP CONTROL BLOCK FOR SUPVR 
3952+ TBTR (R4,$LE) RESET LEVEL ERROR INDICATOR 
3953+ TBTS (R4’XT) SET EXPECTED INTR CONTROL BIT 
3954+ SVC TART CALL SUPVR FOR I/0 COMMAND 
+ 
3956+ TBTR (RU, NT) IS AN INTR EXPFCTED 
3957+ | R6, 2) * NO, RETURN TO USER 
+ 
3959+% THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
+ 
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SUBROUTINE 
I/O EXECUTE ERROR HANDLING POUTINE 
PURPOSE 


THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 
SUPERVISOR AND IT WAS NOT ACCEPTED. 


CALLING SEQUENCE 
SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND 
RETURN CONTROL 


B (R6) * RETURN TO USERS ERROR HANDLER 
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FOR DEVICE BUSY 

I/O DEVICE BUSY AFTER RESET 
COMMAND REJECT 
INTERVENTION REQUIRED 
INTERFACE DATA CHECK 
CONTROLLER BUSY 

I/O COMMAND EXCEPTED 


COPY STATUS ANY LEVEL INTO R3 
POSITION CC CODE TO BITS 13-15 
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SUB-ROUTINE 
ERROR INTERRUPT 
PURPOSE 


THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR 
OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE 
EXPECTED CODE. 


CALLING SEQUENCE 
SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT 
RETURN CONTROL 


svc EXIT RETURN TO USER VIA SUPVR 
ACI OR OC OR OR aR OR OR oO OK oo a a a IG lok kk kkk ok ako ok 


CC O= CONTROLLER END ISB 
FOR 1= PROGRAM CONTROL INTERRUPT BITS 
INTR 2= EXCEPTION INTERRUPT FOR 
3= DEVICE END INTERRUPT INTR 
ATTENTION INTERRUPT 
ATTENTION / PROGRAM CNTL INTR N 
ATTENTION / EXCEPTION INTR ROTRCT CK 
ATTENTION / DEVICE END INTR -~ FACE DATA 
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POSITION INDICATORS IN R3 
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TURN ON CYCLE STEAL INTER ERROR 
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| EXPECTED ATTEN / ERROR IND 
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SOUBROUTINE 
OKAY INTERRUPT 
PURPOSE 
TO CHECK THE INTERRUPT AND CONTINUE THE TEST 


CALLING SEQUENCE 


RUNS ON INTERRUPT LEVEL '$INTL!* 
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4O78+* IL 4195+% 
O79 + #2 KR IO IO RK ck aK ao kk ok dokook kT 7 4196+* DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
003938 706E 4OSO0+INTOK CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 4197+* 
00393A 336A 4081+ SRL 13,R3 POSITION INDICATORS IN R3 IL 4198+* PURPOSE 
00393C 4424 362E 4082+ MVA  OPTN1,R4 SET UP BASE ADRS IL 4199+* 
003940 4cC63 “O834INTR1 TBTS RY tf SET INTERRUPT RECEIVED IL 4Y200+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
003942 4c28 4“O8B4E+ TBT RY ye: IS 'cS IN PROGRESS! ON IL 4201+* SET THE "NO GOOD! CONTROL BIT, THEN LOG THE DATA THAT HAS 
003944 1204 4085+ JON NTR2 * YES. BCH AROUND UPDATE IL 4202+* BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 
003946 C328 3637 4086+ MVB R3,S1OIN+t1 SAVE £NTERRUPTING CC CODE TL 4203+* 
go32na 6FOD 3638 ee MV a R7,$ISB SAVE INTR STATUS AND DEV ADRS IL eae CALLING SEQUENCE 
+ IL 
4089+* ee R5 CURRENT LEVEL COPIED BY DCP IL 4206+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
00394E 3521 4090+ SLL 4,R5 POSITION INTR LEVEL AND PUT TL 4207+* 
003950 0501 4091+ ABI 1/R5 * IN tL? BIT IL 4208+* --> B SERRS SET 'NG* BIT AND CONVERT DATA TO LOG 
003952 CD24 3674 4092+ CW SINTL, R5 IS THIS THE CORRECT INTR LEVEL IL 4209+* --> B $CONX RETURN TO MDI SUPERVISOR TO TEST STS 
003956 1002 4093+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 4210+* 
003958 4C66 4O9Ks TBTS (R4&,SLE) SET TNTR LEVEL ERROR CONTROL BIT TL 4211+* RETURN CONTROL 
00395A 4C61 4095+ TBTS (R4,ER SET ERROR ON I/O COMMAND CNTL BIT IL 4212+* 
00395C 4CA2 4O964INTR3 TBTR (R4,XI WAS INTERRUPT EXPECTED IL 4213+* B TURTN* RETURN TO MDI 
00395E 1204 4O9T+ JON NT RX * YES, EXIT OFF THIS INTR LEVEL IL 4274+* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
003960 4c60 4098+ TBTS (R4&,MI) * NO, SET MYSTERY INTR CONTROL BIT IL 4215+* 
003962 F304 4099+ CBI R3 ATTENTION INTERRUPT? IL UD 16 FRR KK KKK HK KKK KK KK KK KEK KKK KEE KK KKK KKK KEKE KKK KEKE HK KEKE KEK KEKE KKK KES 
003964 1001 4100+ JE TATRX YES IL 0039EC 4020 1818 8000 4217+SERRS MVWI X*8000! ,TUSTATUS SET ON "NO GOOD! STATUS BIT 
003966 4&Cé6C 4101+ TBTS {ua NG) ERROR, UNEXPECTED INTERRUPT IL 0039F2 4724 3BBC 4218+ MVA HEBLK, q GET ADRS OF CONTROL BLOCK 
003968 6006 4102+#INTRX SVC Xf EXIT THIS LEVEL VIA SUPVR TO PGM IL OO39F6 601A 4219+ SVC HTOE CONVERT HEX TO EBC VIS DCP 
110 0b 083 IO ORI OOK ao tok oka tk etek kk SF EB76** 0039F8 4020 188E 4040 4220+ MVWI X'GO40' , TOWORK+ 116 
4105+* 0039FE 4020 1890 4040 4221+ MVWI X*"GO40', TUWORK+118 
4106+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT Q0O3A04 4020 1892 4040 4222+ MVWI X*4040", TUWORK+120 
“107+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN QO3A0A ODO4 G223+SPRNT MVBI 4,RS 
4108+* RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. QO3A0C 4324 181A 4224+ MVA TOWORK,R3 SET UP BUFFER STORAGE 
4109+ 003A10 6BOD 3BB4 4225+ MVW R3,BUFPT 
00396 cus q1ages e33nie Guay °° gases, ategte 
A +XIOCK TBTR (R4,XE WAS AN ERROR EXPECTED ° 
00396C 6ACO 0002 4112+ BN RG 2). * YES, EXIT THIS ROUTINE OO3A1A QEO8 4228+ MVBI 8,R6 
003970 4CA8 4113+ TBTR ) WAS ROTO CS IN PROGRESS QO3A1C 2B24 G229+MVBUF MVFN §23)- (21) 
003972 1006 4114+ SOFF XtOCY NO, CONTINUE CHECKING OO3A1E OFO4 4230+ HVBI 4)R 
003974 4C2A 4115+ TBT {Ra CE) Ts c§ IN AN ERR CONDITION 003A20 QA40 4231+ MVBI X*40*,R2 
003976 1002 41164 JOFF xX10EO NO, BCH 003A22 C258 42324 MVYB 2 (Ri + 
$33372 §823 0000 itigteroco fens {Ree cs afte! O33n3e Babe Ag3et AGE, BYBUF SRE 
+ R4,CSA TURN ON CS STATS AVAIL FLAG 
O0397E 3601 1194 BYS Rey S) GO TO USER 003A28 7921 002c 4235+ AWD 447 R1 
jO308% 1000 WISd see -ieeeee prea Sonar nen eccnt sorte oy SO3R38 8020 1802 FIFO = 4a a Ue eee 
+ XIT THIS ROUTINE 
WOseNu. <choG Sea7 recog QO3A3R 4090 19BR 3BBe 6 «43394 aya, SeBErUsapeanDt 
+ MVB $IOIN+1,R5 GET LAST INTR CC COD : 
003988 F502 4124+ CBI R5 ’ IS THIS CC=2 on 003A40 402C 19C4 0080 Y240+ OWL BIT0060 SUPSTAT 
00398A 1003 4125+ JE xtoco YES 003A46 4324 3634 42414 MVA  $TUID,R3 SET UP BUFFER STORAGE 
00398C F506 4126+ CBI 6,R5 IS THIS CC=6 OO3A4A 6F13 18BA 4242+ BAL TUNSGATR*, RT GO TO MESSAGE WRITER 
00398E 68D1 0000 4127+ BNE (Re) * * NO, BCH TO ERROR HANDLER 4¥Q243+% 
003992 C520 3638 4128+XIOCQ MVB IS8,R5 GET LAST ISB DATA BYTE AND IF 7S OO3A4E 4244+4$CONX nou * 
003996 6A00 38A4 4129+ BN Xtoc§-4 * AVAILABLE, GO AND GET IT OO3A4E C720 19D0 4245+ MVB DEVADD,RT7 GET DEVICE ADDRESS FROM MDI 
00399A 68D2 0000 4130+ B (R6) * ERROR 003A52 6013 42U6+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
00399E CB25 3632 4131+XIOCX MVWZ OPTN3,R3 CLEAR OUT OPTION 3 CNTL BITS OO3A54 6812 3676 42U7+ B TURTN* RETURN TO MDI SUPERVISOR 
0039A2 5601 4132+ BXS  (R6,2) RETURN TO USER VIA REG 6 4248+% 
4133+ 003A58 0009 424U94+BEGIN DC A (0009 NUMBER OF LINES TO PRINT 
4134+ r/o PARAMETER LIST OO3A5A 0008 4250+ DC A (0008 LINE LENGTH = 8 CHAR 
0039A4 19D0 113 LOBLK OO sReN joe Wseo4 DE K(0040) EL 0 
+I DC A (DEVADD ADRS OF DEVICE ADRS + LIN ENGTH = 40 CHAR 
0039A6 3908 4137+ pc A TORR). ERROR ROUTINE ADRS 003A66 E3ZE4C9OCK4OCOD6ECID 4253+ DC Cftotp IOIN ISB INST SECT ID DATA CSCC ! 
0039A8 0000 41384+IODCB DC A (*-* DCB ADRS OR LEVEL & INTR OO3A8E 0028 4254+ DC A (0040) LINE LENGTH = 40 CHAR 
0039AA 0000 4139+IOMOD DC A (*—* MODIFIER 003A90 4O4040K0404040404 42554+LINET DC ct t 
0039AC 0000 4140+ DC A (*-* ADRS OF LAST SVC CALL OO3AB8 0028 4256+ DC A (0040) LINE LENGTH = 40 CHAR 
0039AE 0000 41414#IORSP DC A (*-* SECOND WORD OF LAST IDCB QO3ABA C3D5E3D340C4C3C2F 4257+ DC C'*CNTL DCB1 DCB2 DCB3 DCB4 CHAD BYCT ADRS ! 
4142+* OO3AE2 0028 4258+ DC A (0040) LINE LENGTH = 4O CHAR 
4143+% INTERRUPT CONTROL BLOCK FOR I/O COMMANDS OO3AE4 4O80K040404040404 4259+LINE2 DE ct : 
414 44% 0O3B0C 0028 4260+ DC A (0040) LINE LENGTH = 4O CHAR 
0039B0 19D0 “1854INTBL DC A (DEVADD) ADRS OF DEVICE ADRS OO3BOE C3E260FO4O0C3E260P 4261+ DC C'cs-0 CS-1 CS-2 CS-3 CS-4& CS-5 CS-6 CS-7 ! 
0039B2 3938 41464 DC A (INTOK INTERRUPT OK RETURN ADRS 003B36 0028 4262+ DC A (0040) LINE LENGTH = arts CHAR 
0039B4 3914 4147+ DC A (INTER INTERRUPT ERROR ADRS 003B38 4O4O04 040404040404 42634+LINES DC ct 
0039B6 0003 4148+INTCC DC ' INTERRUPT CODE EXPECTED 003B60 0028 4264+ DC A (0040) LINE LENGTH = 40 CHAR 
1150+ 4 RO IO oO OR CR tok ae 1 AY] 6x QOO3B62 C3E260F840C3E260F 4265+ DC C*cS~8 CS-9 CS-A CS-B CS=-C ‘ 
41514+* 003B8A 0028 4266+ DC A (0040) LINE LENGTH = 4O CHAR 
alesis SUBROUTINE OO3B8C 4O40F 040404080404 icea ee DC ct v 
+ + 
41544+% CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 0O3BB4 0000 4269+BUFPT DC A (*-* 
4155+* 003BB6 3A58 4270+DC2PT DC A (REGEN) 
4156+* PURPOSE OO3BB8 0101 G271+FIXTU DC X*O10T! 
tigate goryep O10" Uerscetpase1o Bou Kt¢tzo: 
+ TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
41594% PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 000080 4274+BITO0080 EQU xX*'0080°* 
4160+%* TO INTERRUPT. Q275+* 
: 4161+ 4276+* DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 
4162+* CALLING SEQUENCE 4277 +% 
4163+* 003BBC 003A 4278+HEBLK DC 8) NUMBER OF BYTES TO CONVERT 
41644+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: OO3BBE 3634 4279+ DC 3 ee FROM ADRS 
41654+* 003BCO 181A 4280+ DC {TUWOR ) AND THE TO ADRS 
4166+* --> BAL $CONC,R6 CLEAR DEV DEP STG AND CONNECT I/O BLK 4281 COPY 233AN78 
4167+* --> BAL $CONP, R6 PREPARE DEVICE ONLY, ALREADY CONNECT 4282 T7A10 TUIT 
4168+* DG 3A KK KKK KA HK KKK KH HK HH KKH HH KH KH KH KK HK KK OK KKK AE KKKO HP EB] 6% * 
4169+* RETURN CONTROL 42844 
4470+* 4285+* TEST UNIT 
41714+* BXS R6, 2) RETURN TO USER VIA REG 6 IF OKAY 4286+* 
41724* OR B R6s * IF THE DEVICE COULD NOT BE CONNECTED aeons ERROR He epee ae be Pte -CHEek 
1877 Uo RK RK ORK EE IK kK tok a Skea IK tak ko totoi ak ik tok kok ke kak ak ok ok 4289+* PURPOSE 
0039B8 OF06 4175*+$CONC MVBI 6, R7 NUMBER OF BYTE TO CLEAR 4290+* 
0039BA OBOO “176+ MVBI ’R3 * AND THE DATA TO USE 42914+* TO MOVE THE ERPOR HALT CODE, STATUS BYTE, AND DIAG BYTES 1,2 3 
00398C 4524 363C 4177+ MVA DEVI * ALONG WITH THE ADRS TO USE 4292+% TO THE TU RESULTS BUFFER (TORESUL) . 
0039C0 2BAC 4178+ FFN (R Sf * 4293+* < 
0039C2 CB25 3632 4179+ MVWZ Bot 3 CLEAR OLD CONTROLS FOR NEW ROUTINE 4294+4+% MDI=STUXX,T7A10,01,0708, EQ 
0039C6 4724 3980 4180+ MVA CNTBL. R7 SET R7 TO CONTROL BLOCK AND 4295+* 
O039CA 6014 4181+ SVC CICBR * CONNECT IT TO THIS DFVICE 4296+* TURESUL BIT(S) 0-7 ........ ERROR HALT CODE 
0039CC 6AD0 0000 4182+ BN (R6) * ERROR RETURN TO USER Y297+* : 8- 15 ewececsee STATUS sag Be BYTE 
0039D0 8828 3674 4184+$CONP MVW SINTL, IODCB por IN LEVEL & INTR PARAMETER 4299+* - 24-37 IIIIIIID SINcLE SHOT BYTE 2 (6-HURSLEY 
0039D6 4724 39A4 41854 MVA IOBLK R7 TO CONTROL BLOCK TO PREPARE 4300+* - 32-39 .~2-..-2-- SINGLE SHOT BYTE 3 (7-HURSLEY 
0039DA 4020 3636 4186+ MVWI X10 708 INITTALIZE CONDITION CODE STORAGE 4301+* - 48-55 ..e222e-- NOT USED 
0039E0 CB25 3638 4187+ MVWZ STSB * AND CLEAR OLD ISB VALUE 4302+%* - 596-63 «+.2++-. MULTISAMPLE BYTE 1 (5-HURSLEY 
OO39E4 6E0D 363A 4188+ MVW LSTTO SET UP ADDRESS THAT STARTED LAST I/0 4303+* - 64-71 .2-e2e-2- MULTISAMPLE BYTE 2 (6-HURSLEY 
0039F8 600C 4189+ svc PRED. * AND CALL ON SUPVR 4304+* é T2219 sedhwtws - MULTISAMPLE BYTE 3 (7-HURSLEY 
O039EA 5601 4190+ BX {REL 2 RETURN TO USER 4305+%* ° 80-87 .....-.- WRAP BYTE 
11936 GeRGa ss Wass 10s e Sesee Tee eseeas es ooo coos ee co oo ahe es eae OCR ee 4306+* 
4193+% 4307+* CALLING SEQUENCE 
4194+* SUBROUTINE 4308+* 
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MVD TUWORK+2,TURESUL+#10 
MVB  TUWORK4+13,TURESUL#S 


TXIT 
B SCONX RETURN TO MDI CONTROLLER 
IOI IG I ICO ICS IOI IC RR OR RI Kk a aca ak ak ak 


END 


MOVE ERROR WORDS 4,5 
MOVE WRAP CHECK RESULTS 


++ 


4309+ MVW TUWORK,TURESUL MOVE ERROR HALT CODE & STATUS BYTES 
4310+ MVD  TUWORK46,TURESUL+2 SINGLE SHOT BYTES 1, 2, AND 3 
4311+ MVD TUWORK+16,TURESUL+6 MULTISAMPLE BYTES 1, 2, AND 3 
4312+ AND WRAP BYTE 
4313+* RETURN CONTROL 
4314+% 
4315+% B TURTN* RETURN TO MDI SUPERVISOR 
+ 
Ub 377 eR RK RK OK RK KK kok kkk i i ki Rk ie ok i i ak ok ck 2k i a i i i i i a RK 2k of ke ke 2k ae ok 
4318+T7A10 MVW  R7,TURTN SAVE RETURN ADDRESS 
43194 MVWI X'7210', $TUID SAVE TU ID FOR DISPLAY 
4320+ MVA  OPTN1,RG SET UP POINTER ADRS IN R4 
43214 BAL  $CONC,R6 CLEAR DEV DEP STG AND CONNECT I/0 BL 
4322+ DC A (SERRS$) ERROR ADRS FOR INVALID PREP 
4323+ 
4324 
4325 
4326 
4327 
4328 
4330 


I7A21 -- 


DECLARED 
4175 
4244 
4217 
2881 
2846 
2847 
2831 
2845 
3294 

42 
102 
103 

39 


41 
45 


4249 
4274 
4269 
2835 
2920 
3017 
2833 
2834 
2864 
3055 
2854 
4270 
105 
2849 
2852 
3006 
67 
2598 
47 
2826 
2906 
4272 
2648 
2636 


2704 
2676 
2644 


2672 
2620 


i 





= FRU ISOLATION MAP 


NAME 

$C ONC 
$CONX 
$ERRS 
$INTL 
$I OIN 
$ISB 
$LE 
$TUID 
$WRT1 
@CALL 
@DCADD1 
@DCADD2 
@FIXT 


@GOTO 
@TUXX 


BEGIN 
BITO080 
BUFPT 
CE 
CICB 
CLDCB 
CS 

CSA 
CSBUF 
CSDCB 
DCBUF 
DC 2PT 
DEVADD 
DEV1 
DEV4 
DGDCB 
DUMMY 
ENTPT 
EQ 

ER 
EXIT 
FAKETU 
F00031 
F00033 


FOOO4Y 
FOOO45 
FOOO47 


FO00052 
FO00076 


P /N= 


8327656 


CROSS-~REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 
pADRRESS. HEX LOCATION (000039B8) 
pABDRESS. HEX LOCATION (00003A4E) 

ADDRESS. HEX LOCATION (000039EC) 


2 

ADDRESS. HEX LOCATION (00003674) 
ADDRESS. HEX LOCATION (00003636) 
3281 3946 4006 4086. 4123 41 
ADDRESS. HEX LOCATION (00003638) 
3282 3947 4O87 4128 4187 
ABSOLUTE. HEX VALUE (00000026) 
3952 4094 

ADDRESS. HEX LOCATION (00003634) 
2891 4241 4279 4319 
ghBDRESS. HEX LOCATION (00003870) 
ABSOLUTE. HEX VALUE (00000201) 
1014 1032 1179 1881 

ABBRESS- HEX LOCATION (00001988) 
pABBRESS. HEX LOCATION (000019BA) 
ABSOLUTE. HEX VALUE (00000101) 
1074 1125 1128 1131 1134 #11 
1275 1278 1293 1308 1311 13 
1422 1425 1428 1431 1458 14 
1521 1524 1527 1530 1533 16 
1644 1647 1650 1665 1680 16 
1767 1770 1797 1800 1815 18 
1854 1959 1986 1989 2004 20 
2055 2082 2085 2088 2103 21 
2202 2205 2208 2271 2274 22 
2325 2340 2355 2358 2361 23 
2496 2499 2514 2517 2532 25 
2571 2574 2589 2592 2595 
ABSOLUTE. HEX VALUE (00000200) 
ABSOLUTE. HEX VALUE (00000500) 
972 984 1002 1020 1038 10 
1101 1113 11493 1155 1167 11 
1239 1251 1263 1281 1296 13 
1371 1386 1398 1410 1434 14 
1506 1536 1548 1560 1572 15 
1653 1668 1683 1701 1713 17 
1785 1803 1818 1836 1857 18 
1923 1935 1947 1962 1974 19 
2058 2070 2091 2106 2124 21 
2190 2211 2223 2235 2247 22 
2328 2343 2367 2379 2391 24 
2454 2469 2481 2502 2520 25 
yADBRESS. HEX LOCATION (00003A5 8) 
pABSOLUTE. HEX VALUE (00000080) 
yBBBRESS. HEX LOCATION (00003BB4) 
ABSOLUTE, HEX VALUE (0000002A) 
3931 4045 411 
ABSOLUTE. HEX VALUE (00000014) 
ghDBRESS. HEX LOCATION (00003696) 
ABSOLUTE. HEX VALUE (00000028) 
3932 3935 4043 4084 4113 
yRBSOLUTE. HEX VALUE (00000029) 
ADDRESS. HEX LOCATION (00003654) 
3062 3275 3943 
gAQDRESS. HEX LOCATION (000036D6) 
ADDRESS. HEX LOCATION (00003644) 
3278 3938 

yABBRESS. HEX LOCATION (00003BB6) 
ADDRESS. HEX LOCATION (000019D0) 
2884 4136 4145 424 

ADDRESS. HEX LOCATION (0000363C) 
2853. 4177 

ADDRESS. HEX LOCATION (00003642) 
4046 4047 

ghDRRESS. HEX LOCATION (00003686) 
ABSOLUTE. HEX VALUE(00000000) 
963 2597 

ADDRESS. HEX LOCATION (00003308) 
ABSOLUTE. HEX VALUE (00000000) 
975 987 1860 1890 1902 19 
ABSOLUTE. HEX VALUE (00000021) 
3284 3949 3970 4053 4095 41 
pABSOLUTE. HEX VALUE (00000006) 
yRBBRESS. HEX LOCATION (00003BBA) 
ADDRESS. HEX LOCATION (00003444) 
1138 1849 2104 2206 

ADDRESS. HEX LOCATION (00003418) 
1126 1222 1426 1429 1459 14 
1987 2185 2272 2278 2467 25 
ADDRESS. HEX LOCATION (00003508) 
ADDRESS. HEX LOCATION (000034A6) 
1462 1990 

ADDRESS. HEX LOCATION (00003436 
1132. 1621 1753 1831 1960 2 
2341 2356 2494 2500 

ADDRESS. HEX LOCATION (00003498) 
1309 1357. 1525. 1645 2515 2 
ADDRESS. HEX LOCATION (000033E2) 


IN 
IN 
IN 
IN 
IN 
6 

IN 


IN 
IN 


IN 
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IN 


IN 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


IN 


14 
20 


IN 
IN 
IN 
O4 
33 
IN 
IN 
IN 
86 
IN 
72 
IN 


CSECT (I7A21 
CSECT (I7A21 
CSECT (I7A21 
CSECT (I7A21 
CSECT(I7A21 
CSECT (I7A21 


CSECT (1I7A21 
CSECT (I7A21 


CSECT (I7A21 
CSECT (17A21 


1140 1221 
1329 1356 
1464 1503 
1623 1626 
1698 1749 
1833 1848 
2010 2013 
2121 2184 
2280 2283 
2415 2466 
2538 2553 
1062 1077 
1197 1209 
1332 1344 
1467 1479 
1596 1608 
1737 ©1755 
1887 1899 
2016 2028 
2148 2160 
2289 2301 
2418 2430 
2559 2577 
CSECT (I7A21 


CSECT (I7A21 


CSECT (17A21 


CSECT (I7A21 
CSECT(I7A21 
CSECT (I7A21 
CSECT(I7A21 
CSECT(I7A21 
CSECT (I7A21 
CSECT(I7A21 
CSECT (I7A21 


CSECT (I7A21 


1926 1995 


CSECT (I7A21 
CSECT (I7A21 


CSECT (I7A21 
1522 °1642 


CSECT (I7A21 
CSECT(I7A21 


CSECT(I7A21 
2089 (2119 


CSECT (I7A21 
CSECT (I7A21 


EC=375222 
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) LENGTH (2) 
) LENGTH (1) 
) LENGTH (6) 
) LENGTH (2) 
) LENGTH (2) 
) LENGTH (2) 


) LENGTH (2) 
) LENGTH (2) 


—Z 


LENGTH (1) 
LENGTH (1) 


— 


ON ND td OO) OUI N) 
WO COOUILIUIE = CON) 
DWN at Na OW & 


SWAQOWALSWNO 
“—W Bai JS m~AINOUINO 
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LENGTH (2) 


) LENGTH (2) 


) LENGTH (2) 


LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


we eet ee ee 


) LENGTH (1) 


) LENGTH (2) 
) LENGTH (1) 


LENGTH (1 
1854 Om) 


) LENGTH (1) 
) LENGTH (1) 


LENGTH (1 
236 oi 


) LENGTH (1) 
) LENGTH (1) 
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DECLARED NAME 


2624 
26 28 
2632 
2640 
2652 
2656 
2660 
2664 
2668 
2680 
26 84 
2688 
2692 
26 96 
2700 
2756 
2752 
2748 
2744 
2708 
2768 
2716 
2720 
2724 
2784 
2712 
2728 
2732 
2736 
2740 
2764 
2772 
2760 
2780 
2776 
4278 
2926 
2902 
3147 
2828 
4145 
4O40 
4049 
4053 
4080 

63 
4102 
4083 
4088 
4096 
4136 
4438 


4139 
37 
4255 


F00077 
FO00078 
F00079 
F00080 
F00081 
F00082 
F00083 
FOO0084 
FO00085 
F00086 
F00087 
F00088 
F00089 
FO00090 
F00091 
F00092 
F00093 
F00094 
F00095 
F00096 
F00097 
F00098 
F00099 
F00100 
F00102 
F00103 
FO00 104 
F00106 
F00107 
F00108 
F00109 
F00110 
FO0111 
F00112 
F00113 
HEBLK 
HTOE 
IDLE 
IDOO 
IN 
INTBL 
INTER 
INTES 
INTET 
INTOK 
INTRNL 
INTRX 
INTR1 
INTR2 
INTR3 
IOBLK 
IODCB 


IOMOD 
I7A21 
LINE1 
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MAP P/N=8327656 EC=375222 
CROSS-REFERENCE LISTING 
ATTRIBUTES AND REFERENCES 
997 
ADDRESS. HEX LOCATION (000033F0) IN CSECT(I7A21  ) LENGTH(1) 
jADBRESS- HEX LOCATION (000033FE) IN CSECT(I7A21  ) LENGTH(1) 
ADDRESS. HEX LOCATION (0000340C) IN CSECT{I7A21 ) LENGTH(1) 
ADDRESS. HEX LOCATION (00003428) IN CSECT(I7A21. ) LENGTH(1) 
ADDRESS. HEX LOCATION (00003452) IN CSECT(E7A21  ) LENGTH(1) 
ABDRESS. HEX LOCATION (00003460) IN CSECT(I7A21 ) LENGTH(1) 
ADDRESS. HEX LOCATION (00003465) IN CSECT(I7A21 ) LENGTH(1) 
ADDRESS. HEX LOCATEON (0000347C) IN CSECT(I7A21 ) LENGTH(1) 
1276 1312 1384 1423 1432 1465 1816 ‘2518 
ADDRESS. HEX LOCATION(0000348A) IN CSECT(I7A21  ) LENGTH(1) 
1279 1330 1519 1528 1624 1627 
ADDRESS. HEX LOCATION (000034B4) IN CSECT(I7A21  ) LENGTH(1) 
,BDDRESS, | HEX LOCATION (000034C2) IN CSECT(I7A21  ) LENGTH(1) 
ADDRESS. HEX LOCATION(000034D0) IN CSECT(I7A21 ) LENGTH(1) 
1648 1681 1699 
{RDDRESS. HEX LOCATION (000034DE) IN CSECT(I7A21  ) LENGTH(1) 
ADDRESS. HEX LOCATION (000034EC) IN CSECT(I7A21  ) LENGTH(1) 
ADDRESS. HEX LOCATION (O00034FA) IN CSECT(I7A21  ) LENGTH(1) 
ADDRESS. HEX LOCATION (000035BE) IN CSECT(I7A21  ) LENGTH (1) 
ADDRESS. HEX LOCATION (000035B0) IN CSECT(I7A21 ) LENGTH(1) 
2203 2416 2590 
oADRRESS. HEX LOCATION (00003542) IN CSECT(I7A21  ) LENGTH(1) 
ADDRE S. HEX LOCATION(00003594) IN CSECT(I7A21  ) LENGTH(1) 
;BDDRESS. HEX LOCATION (00003516) IN CSECT(I7A21  ) LENGTH(1) 
ADDRESS. HEX LOCATION (000035E8) IN CSECT(I7A21 ) LENGTH(1) 
2362 2536 2539 
ADDRESS. HEX LOCATION (00003532) IN CSECT(I7A21  ) LENGTH(1) 
ADDRESS. HEX LOCATION (00003540) IN CSECT(I7A21  ) LENGTH(1) 
ADDRESS. HEX LOCATION (0000354E) IN CSECT(I7A21  ) LENGTH(1) 
a ADDRESS. HEX LOCATION (00003620) IN CSECT(I7A21  ) LENGTH(1) 
{ADDRESS. HEX LOCATION (00003524) IN CSECT(I7A21  ) LENGTH(1) 
pADDRESS. HEX LOCATION (0000355C) IN CSECT(I7A21 ) LENGTH(1) 
aADDRESS- HEX LOCATION (0000356A) IN CSECT(I7A21 ) LENGTH(1) 
o ADDRESS. HEX LOCATION (00003578) IN CSECT(I7A21  ) LENGTH(1) 
jADDRESS. HEX LOCATION (00003586) IN CSECT(I7A21  } LENGTH(1) 
jADBRESS.. HEX LOCATION (000035DA) IN CSECT(I7A21  ) LENGTH(1) 
sADRRESS. HEX LOCATION (000035F6) IN CSECT(I7A21  ) LENGTH(1) 
jARDRESS. | HEX LOCATION (000035CC) IN CSECT(I7A21 ) LENGTH(1) 
a ADDRESS. HEX LOCATION (00003612) IN CSECT(I7A21  ) LENGTH(1) 
ADDRESS. HEX LOCATION (00003604) IN CSECT(I7A21  ) LENGTH(1) 
ADRESS. HEX LOCATION(00003BBC) IN CSECT(I7A21. ) LENGTH(2) 
pABSOLUTE. HEX VALUE (00000018) 
ae pOLUsE. HEX VALUE (00000002) 
gADBRESS. HEX LOCATION (00003770) IN CSECT(I7A21. ) LENGTH(2) 
ABSOLUTE. HEX VALUE (00000023) 
3283 3950 3962 4083 
yABBRESS. HEX LOCATION (000039B0) IN CSECT(I7A21) LENGTH (2) 
gADBRESS. HEX LOCATION(00003914) IN CSECT(I7A21  ) LENGTH(2) 
ADDRESS. HEX LOCATION (0000392C) IN CSECT(I7A21  ) LENGTH(2) 
ADDRESS. HEX LOCATION (00003934) IN CSECT(I7A21 ) LENGTH(2) 
yADDRESS. HEX LOCATION (00003938) IN CSECT(I7A21  ) LENGTH (2) 
ABSOLUTE. HEX VALUE (00000000) 
yABDRESS. HEX LOCATION (00003968) IN CSECT(I7A21  ) LENGTH(2) 
ADDRESS. HEX LOCATION (00003940) IN CSECT(I7A21  ) LENGTH(2) 
4048 4052 4054 
ADDRESS. HEX LOCATION (0000394E) IN CSECT(I7A21  ) LENGTH(1) 
ADDRESS. HEX LOCATION (0000395C) IN CSECT(I7A21  ) LENGTH (2) 
ADDRESS. HEX LOCATION (000039A4) IN CSECT(I7A21. ) LENGTH(2) 
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